LEONARD HEE 

NASA AMES RESEARCH CENTER 
MS 213-2 

MOFFETT FIELD, CA 94035 




USER'S GUIDE 
TO SUBROUTINES 

DATED: 8 DECEMBER 1981 



TABLE OF CONTENTS 
^ __ _ ^ — 

SECTION I - MATHEMATICAL SUBROUTINES/FUNCTIONS 



PAGE 
1.1 

1.2 
1.3 
1.4 
1.5 
1.6 
1.7 
1.8 

1.9 

1.10 
1.11 
1.12 



o AEPC 



1,4 



O ALIM 
o ALIML 



■1,4 



1,4 

O ALIMU 1,4 

O ARCTAN 1 ' 4 
1,4 



o ASQRT 
O AT AN 5 



1,4 



O FGAUSS' 



O RADNO 



O SINCOD 



O SINCOR 



O TRIMAT 



1,4 
1,4 
1,4 



- END-POINT CHECK (-180 ANGLE 

180°) 

- LIMITS (UPPER/LOWER) 

- LIMITS (LOWER) 

- LIMITS (UPPER) 

- ARC-TANGENT ( 3 -TERM EXPANSION) 

- SQUARE ROOT 

- ARC-TANGENT (5-TERM EXPANSION) 

- RANDOM NUMBER (GAUSSIAN 
DISTRIBUTION) 

- RANDOM NUMBER (UNIFORM 
DISTRIBUTION) 

- SINE AND COSINE (DEGREES INPUT) 
-SINE AND COSINE (RADIANS INPUT) 

- (3X3)* (3X3) MATRIX MULTIPLY 



NOTES: 1 - REAL-TIME OR NON-REAL-TIME 

2 - REAL-TIME ONLY 

3 - NON-REAL-TIME ONLY 

4 - FORTRAN CALLABLE 



SECTION II - CONVERSION SUBROUTINES/FUNCTIONS: 
PAGE 



2.1 


o 


AFIXFL 1 ' 


4 


- 


Fix-to-float 


2.2 


o 


ASCDEC ' 


4 


— 


ASCII-to~decimal 


2.3 


o 


ASCFLO ' 


4 


— 


ASCII-to-f loat 


2.4 


o 


ASCHEX ' 


4 


- 


ASCII-to-hex 


2.5 


o 


ASCHMS ' 


4 


- 


ASCII-to-hrs/min/sec . 


2.6 


o 


ASCINT 1 ' 


4 




ASCII- to-integer 


2.7 


o 


ASCLAT 1 ' 


4 


- 


AS CI I - to - 1 at i tude 


2.8 


o 


ASCLON 1 ' 


4 


- 


ASCII-to-longitude 


2.9 


o 


BCDFLO 


4 


- 


BCD-to-float 


2.10 


o 


BCDIN ' 




- 


BCD- to- integer 


2.11 


o 


DECASC ' 


, 4 


- 


Decimal-to-ASCII 


2.12 


o 


FLOASC ' 


4 


- 


Float-to-ASCII 


2.13 


o 


FLOBCD 


4 


- 


Float-to-BDC 


2.14 


o 


HEXASC 1 ' 


, 4 


- 


Hex-to-ASCII 


2.15 


o 


HMSASC 1 ' 


,4 




Hrs/min/sec-to-ASCII 


2.16 


o 


IFLOFIX 3 


L.,4 




Float-to-BCD 


2.17 


o 


INTASC 1 ' 


,4 




Integer-to-ASCII 


2.18 


o. 


INTBCD 1 ' 


4 




Integer-to-BCD 


2.19 


o 


LATASC 1 ' 


,4 




Latitude-to-ASCII 


2.20 


o 


LONASC 1 ' 


4 




Longi tude- to- AS CI I 



NOTES: 1 - Real-Time or Non-Real-Time 

2 - Real-Time only 

3 - Non-Real-Time only 

4 - Fortran Callable 



9-29 



SECTION III - SPECIAL SUBROUTINES 



PAGE 



3.1 


o 


1 A 

BITER # 


3.2 


o 


1 4 

BITF3 


J • 3 


Q 


1 4 

Dli,g 


3.4 


o 


1 4 

BITT 


3.5 


o 


1 4 

ESRD 


3.6 


o 


GENEVA 1 '' 


3.7 


o 


SDATE 1 


3. 8 


o 


SPOOLFIL 


3.9 


o 


SMZLK 2 


3.10 


o 


SYMLKW 3 


3.11 


o 


1 4 
Z TIME 7 



NOTE: 1 - Real-Time or Non-Real-Time 

2 - Real-Time only 

3 - Non-Real-Time only 

4 - Fortran calable 



Bit Function Read 
Bit Function Set 
Bit Set 
Bit Test 

Synchro/resolver drive 
computation 

Geneva drive computation 
System date 

Dynamic job steam spool 
file create 

Symbol Dictionary look-up 
(no-wait I/O) 

Symbol dictionary look-up 
(wait I/O) 

System time 



9-49 



NAME: AEPC (End Point Check) 

TYPE: Function 



DESCRIPTION: End Point Checks Angle such that Angle 

is Restricted to + 180 Degrees (Floating 
Point) 



CALLING CONVENTIONS 



FORTRAN: THETA = AEPC (THETA) 



ASSEMBLY : LEA 1 , THETA 

BL AEPC 



Result returned in register 7 



TIME: 4.2 p sec/excess revolution 

ACCURACY: N/A 
REGISTERS DESTROYED: 0, 7 

RESTRICTIONS : 



NAME: 



ALIM (Upper/Lower Limit) 



TYPE: 



FUNCTION 



DESCRIPTION: 



Limits Single Precision Floating 
Point to +/- Caller Specified Value 



CALLING CONVENTIONS 



FORTRAN : Y = ALIM (X,X iimit ) 



ASSEMBLY: 



BL 

DATAW 
DATAW 
DATAW 



ALIM 
8 

W(X) 

-= E»X liia ' [or W(X lim )] 



Result returned in register 7 



TIME: 11.4 psec (avg) 

ACCURACY: N/A 
REGISTERS DESTROYED: 0, 1, 5, 7 
RESTRICTIONS: X, • • + must be > 0 



NAME; 
TYPE: 



ALIML (tower Limit) 
Function 



DESCRIPTION: Lower Limits Single Precision FLoating 
• . Point Value to Caller Specified Value 



CALLING CONVENTIONS 



FORTRAN: Y = ALIML (X,X •_) 



ASSEMBLY: BL 

DATAW 
DATAW 
DATAW 



Result returned to register 7 



TIME: 5.7 psec (avg) 

ACCURACY: N/A 

REGISTERS DESTROYED: 0, 1, 6, 7 -' 
RESTRICTIONS: 



ALIML 
8 

W(X) 

= E'X • ' [or W(X • )] 

mm mm 



NAME: 



ALIMU (Upper Limits) 



TYPE: 



Function 



DESCRIPTION: 



Upper Limits Single Precision Floating 
Point to Caller Specified Value 



CALLING CONVENTIONS 



FORTRAN: 



Y = ALIMU (X,X max ) 



ASSEMBLY: 



BL 

DATAW 
DATAW 
DATAW 



ALIMU 
8 

W(X) 
= E 'X. 



max 



Result returned in register 7 



TIME: • 5.7usec (avg) 

ACCURACY: N/A 

REGISTERS DESTROYED: 0 , I, 6, 7 

RESTRICTIONS: 



NAME: 



ARCTAN 



TYPE: 



Function 



DESCRIPTION: Computes ARCTANGENT from two orthogonal 
% inputs (S.P. floating point) 



FORTRAN: THETA - ARCTAN (y,x) 



DATAW 8 
DATAW W(y) 
DATAW W(X) 



Result returned to register 7 



" where: x = K*SINE(Theta) 

y == K*COSINE(Theta) 



CALLING CONVENTIONS 



ASSEMBLY: 



ARCTAN 



TIME: 



65 usee 



ACCURACY: 



1.7 ARCSEC 



REGISTERS DESTROYED: 



0,1,2,4,5,6 and 7 



RESTRICTIONS : 



NAME s ASQRT (Square Root) 



T^E: Function 



DESCRIPTION: Computes the Square Root of a Single 
* • Precision Floating Point Value 



CALLING CONVENTIONS 



FORTRAN: Y = ASQRT (X) 



ASSEMBLY: LEA 1,X 

• BL ASQRT 



Result returned in register 7 



TIME: ; 34.8 psec 
ACCURACY: 0.0003 % 

REGISTERS DESTROYED: 0, 1, 3, 4, 5, 6 and 7 

RESTRICTIONS: Negative Value Gives Zero result 

f y 
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NAME: 



AT AN 5 (ARCTANGENT) 



TYPE: Function 



DESCRIPTION: Computes ARCTANGENT from Two Orthogonal 
* Inputs (S. P. Floating Point) - Note: 

Higher Accuracy than ARCTAN 



CALLING CONVENTIONS 



FORTRAN : THETA = ATAN5 (Y,X) 



ASSEMBLY: BL ATAN5 

DATAW 8 

• ' DATAW W(Y) 

DATAW W(X) 



Result returned in register 7 



Where: X = K*SINE( THETA) 

Y = K*COSINE( THETA) 



TIME:' 98.89 psec 

ACCURACY: 2.3 ARCSEC . . 

REGISTERS DESTROYED: 0, 1, 2, 4, 5, 6 and 7 

RESTRICTIONS: 



NAME: 



FGAUSS (Random Number - GAUSSIAN) 



TYPE: Function 

DESCRIPTION: Generates a S.P. Floating Point Random 

Number in Range of -3.0 to +3.0 



CALLING CONVENTIONS 
FORTRAN: X = FGAUSS (Y) 

r - • . - 

ASSEMBLY: BL ■ FGAUSS . . 

On Return: R7 = GAUSSIAN Random Number 

where: Y = Dummy Argument (Not used but required) 

. x = GAUSSIAN Random Number : - 

TIME: 55.1 ysec • 

ACCURACY: 

REGISTERS DESTROYED: 0, 6, 7 

RESTRICTIONS: Seed is internal to subroutine, cannot be passed. 



RADNO (Random Number - Uniform) 



Function 



Provides a- uniform Distribution Random 
Number Based on Previous Random Number 
(Seed). Range 0 -» .99999 



CALLING CONVENTIONS 



FORTRAN: CALL RADNO 




ASSEMBLY: BL ' RADNO 



:•" ' On Return: ZARDMB = Fixed Point Random 

- Number (Range 0 to 1) 

ZBRDMB = Floating Point Random 
. Number (Range 0 to 1) 

TIME: 47 psec 

. ACCURACY: • 

REGISTERS DESTROYED: 0, 4, 5 . [ 

RESTRICTIONS: Unless specific requirements, users should 

not call random number, but use ZARDMB and 
ZBRDMB 

i J • . ■ 




NAME: 



TYPE: 

DESCRIPTION: 



NAME :■ S INCOD ( S INE/COS INE ) 



TYPE: Subroutine 



DESCRIPTION: Computes Sine and Cosine of Floating 
« Point ANgle Given in Degrees (+/-180) 



CALLING CONVENTIONS 



FORTRAN: CALL S INCOD (THETA, SINE {1 v) 



ASSEMBLY: BL S INCOD 

DATAW 8 

DATAW W( THETA) 

DATAW W(SINS) 



TIME: 99.3 usee 

ACCURACY: 0.1 ARC SEC 

REGISTERS DESTROYED: 0, 1, 2, 4/5, 6 and 7 

RESTRICTIONS: Sine must be two word array 
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NAME J 
TYPE: 



SINCOR (Sine/Cosine) 
Subroutine 



DESCRIPTION: Computes Sine and Cosine of Floating 
« Point Angle Given in Radians 



CALLING CONVENTIONS 

FORTRAN: CALL SINCOR (THETA, SINE ^ j ) 

ASSEMBLY: BL 

DATAW 
DATAW 
DATAW 



SINCOR 
8 

W( THETA) 
W(SINE) 



TIME: 107 jisec 

ACCURACY: 0.1 ARC SEC 

REGISTERS DESTROYED: 0, 1,2,4, 5, 6 and 7 

RESTRICTIONS: SINE must be two word array 



■ NAME: TRIMAT (Matrix Multiply) 



TYPE : Subroutine 



DESCRIPTION: (3X3) Matrix by (3X3) Matrix 

Multiply (S.P. Floating Point) 



CALLING CONVENTIONS 



FORTRAN: 



CALL TRIMAT (PRI, SEC, PROD) 



ASSEMBLY: 



BL 


TRIMAT 


. DATAW 




DATAW 


W(PRI) 


DATAW 


W(SEC) 


DATAW 


W(PROD) 



where: PRI - Primary Matrix - 
SEC = Secondary Matrix 
PROD = Product Matrix 



TIME: 548.8 usee 
ACCURACY: 

REGISTERS DESTROYED: 
RESTRICTIONS : 
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NAME: 



AFIXFL (Fix-To-Float) 



TYPE: 



Function 



DESCRIPTION: 



Converts Fixed Pointed Number to S.P 
Floating Point 



CALLING CONVENTIONS 



FORTRAN: 



A = AFIXFL ( INPUT, SCALE) 



ASSEMBLY: 



BL 

DATAW 
DATAW 
DATAW 



AFIXFL 
8 

W( INPUT) 
W( SCALE) 



Result returned in register 7 



TIME: 36 usee 

ACCURACY: 31 Bits 

REGISTERS DESTROYED : 0, 3, 4, 5, 6, 7 

RESTRICTIONS: -31 < scale < 31 



NAME: 



ASCDEC (ASCII -TO-DECIMAL) 



TYPE: 

DESCRIPTION: 



Subroutine 



Converts an ASCII String Representing a 
Decimal Value to a Fixed Point Decimal 
Word 



CALLING CONVENTION 



FORTRAN: 



ASSEMBLY; 



CALL ASCDEC (INBUF, N, SCALE, OUT, ERFLAG) 



BL 

DATAW 
DATAW 
DATAW 
DATAW 
DATAW 
DATAW 



ASCDEC 
20 

B (INBUF) 
W(N) 

W( SCALE) 
W(OUT) 
B( ERFLAG) 



TIME: • 
ACCURACY : 



where: INBUF = ASCII Decimal Input Buffer 

N = Number of Characters 

SCALE = Scale Factor of Fixed Point 
Decimal Output 

OUT = Fixed Point Decimal Value Result 

ERFLAG= Input Error Flag 

134 (3 Char); 182 (5 Char); 336 (9 Char) 



REGISTERS DESTROYED: 

_9 



0, 1, 2, 3, 4, 5, 6 and 7 
s 



RESTRICTIONS: 10 < Dec Value < 10 



NAME: 



ASCFLO (ASCII-TO-FLOAT) 



TYPE: 

DESCRIPTION: 



SUBROUTINE 



Converts a decimal number expressed in 
8 bit ASCII to S.P. floating point. 



CALLING CONVENTIONS 



FORTRAN: 



CALL ASCFLO ( INPUT, OUTPUT) 



ASSEMBLY: 



BL 

DATAW 
DATAW 
DATAW 
DATAW 



ASCFLO 
8 

B( INPUT) 
B( INPUT) 
W(OUTFUT) 



where: INPUT = Buffer containing ASCII string 

of the form (±) XXf— XX. XX XX Sign 

is optional. 



TIME: 75 psec + 12.9 psec/Digit 
ACCURACY: 

REGISTERS DESTROYED: 0 ' 

RESTRICTIONS: Number <4, 294, 967,295; Max # of Fractional 
• Digits = 8 



NAME : 



ASCHEX (ASCII-tO~HEX) 



TYPE: 



Subroutine 



DESCRIPTION: Converts an ASCII String Representing a 

Hex Value to a Hex Word Value "» 



CALLING CONVENTIONS 



FORTRAN: 



CALL ASCHEX (IBUF, N, IOUT) 



ASSEMBLY: 



BL 

DATAW 
DATAW 
DATAW 



ASCHEX 
B(IBUF_ 
W(N) 
W( IOUT) 



.<! where: IBUF = Hex Input Buffer 

• N = Number of characters 
• ' IOUT = Hex Output Word 

TIME: 129.6 usee (eight characters) 
ACCURACY: 

REGISTERS DESTROYED: 0, 1/ 2, 3, 4 and 5 

'RESTRICTIONS: 1 < N < 8 (No error checking) 



2.4 



NAME: 



ASCHMS (ASCII-to-Hrs/Min/Sec) 



TYPE: 



Subroutine 



DESCRIPTION: 



FORTRAN: 



Converts Hrs/Mins/Sec (ASCII Format 
HH:MM:SS) to Seconds (S.P.- Floating 
Point) 

CALLING CONVENTIONS 

CALL ASCHMS (FMT, IA, LE, N) 



ASSEMBLY: 



. where: 



BL ■ ASCHMS 

DATAW 16 

DATAW W(FMT) 

DATAW B(IA) 

DATAW B ( LE ) 

DATAW W(N) 

FMT = Results in Seconds 

. IA = HRS/MINS/SEC Input Buffer 

LE = Input Error Flag 

N .= Number of characters 



TIME: 192 psec 

ACCURACY: 

REGISTERS DESTROYED: 0, 1, 2, 3, 4, 5, 6 and 7 

RESTRICTIONS: 2 < N < 8; Max time = 23 hrs, 59 min 



NAME: 



ASCINT (ASCI I -TO- INTEGER) 



TYPE: 



Subroutine 



DESCRIPTION; 



Converts and integer, expressed in 8-bit 
ASCII to a S.P. integer. 



CALLING CONVENTIONS 



FORTRAN : 



CALL ASCINT (INPUT, OUTPUT) 



ASSEMBLY: BL ASCINT 

DATAW 8 

■ DATAW B( INPUT) 

DATAW W( OUTPUT) 

where: INPUT = Buffer containing ASCII string 

• of the Form (± XX XX. Sign 

is optional. 



TIME: 35.8 usee + 12 .3p sec/Digit 
ACCURACY: 

REGISTERS DESTROYED: 0 

RESTRICTIONS: Nuitiber <4, 294, 967 ,295 



NAME: 



iSCLAT (ASCII-to-Latituda) 



TYPE: 



Subroutine 



DESCRIPTION: Converts Latitude (in ASCII Format 

? XX.XX.XX.X) to S.P. Floating Point 



N 
S 

Degrees 



CALLING CONVENTIONS 



FORTRAN : 



CALL ASCLAT (FL, IA, LE, N) 



ASSEMBLY: 



BL 

DATAW 
DATAW 
DATAW 
DATAW 
DATAW 



ASCLAT 

W(FL) 
B(IA) 
B ( : LE ) 
W(N) 



where: FL = Results in Degrees Latitude 

(S = Neg) . 

IA = ASCII latitude input buffer addres 

LE = Input error flag 

N = Number of input characters 

TIME: 326 usee (12 characters) 

ACCURACY: 

REGISTERS DESTROYED: 0, 1, 2, 3, 4, 5, 6 and 7 

RESTRICTIONS: 1 < N < 12; Latitude < 180° (N or S) 



NAME: 



ASCLON (ASCII-to-Longitude) 



TYPE: 



Subroutine 



DESCRIPTION: Converts Longitude (in ASCII Format 

XXX. XX. XX. X) to S.P. Floating Point 



W. 



E 

Degrees 



CALLING CONVENTIONS 



FORTRAN: 



CALL ASCLON (FL, IA, LE, N) 



BL 

DATAW 
DATAW 
DATAW 
DATAW 
DATAW 
where : 



ASSEMBLY: BL ASCLON 

16 

W(FL) 

B(IA) / 
B(LE) 

W(N) . " 

FL = Result in Degrees Longitude (W = neg) 
IA = ASCII Longitude input buffer address 
LE = Input error flag 
N = Number of Input characters 
TIME: 336 usee (12 characters) 
ACCURACY: 

REGISTERS DESTROYED: 0, 1, 2, 3, 4, 5, 6 and 7 
RESTRICTIONS: 1 £ N < 12; Longitude <_ 180° (E or W) 
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NAME: 



BCDFLO (BCD-to-Float) 



TYPE: 



Subroutine 



DESCRIPTION : Converts BCD to S . P . Floating Point 



FORTRAN: 
ASSEMBLY : 



CALLING CONVENTIONS 



a 



CALL /CDFLO (INPUT, SAVER, OUTPUT) 

BL BCDFLO 

DATAW 12 

DATAW B( INPUT) 

. DATAW W( SAVER) 

DATAW W(OUTPUT) 

where: Saver = Input Parameters 

- Byte 1 = Total Field Length 

Byte 2 = Fractional, Field Length 

Byte 3 = Starting Nibble in First 

Byte of Input Buffer 

" (0 or 1). If a 1, nib- 
ble 0 - Bit 4 = sign bit 



TIME : 



45 usee + 18 jj sec/digit 



ACCURACY: 



REGISTERS DESTROYED: 0 
RESTRICTIONS: Max field length 



= 8; 



NAME: 



BCD IN (BCD- to- Integer) 



TYPE: 



Subroutine 



DESCRIPTION: Converts BCD to S.P. Integer Value 



CALLING CONVENTIONS 



FORTRAN: 



CALL BCD IN (IBCD, IBIT, N, INT) 



ASSEMBLY: 



23k 



BL BCDIN 

DATAW 16 

DATAW H(IBCD) 

DATAW W(IBIT) 

DATAW W(N) 

DATAW W(INT) 

where: IBCD = Packed BCD Input 
IBIT 



INT 



Starting BIT Position of 
First BCD Digit 

Number of BCD Digits (4 max) 

Integer Results 



TIME: 16.8 usee + 9.8 jj sec/digit (Bit 0 Start) 
ACCURACY: 

REGISTERS DESTROYED: 0, 1, 3, 4, 5, 6 and 7 
RESTRICTIONS: . 0 < N < 4 
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NAME; 
TYPE: 



DECASC (Decimal-to-ASCil ) 
Subroutine • 



DESCRIPTION: 



Converts a Fixed Point Decimal Word 
to a Character String Representing the 
Decimal Value 



CALLING CONVENTIONS 



FORTRAN: 



CALL DECASC (INPUT, SCALE, N, OUTBUF, 
INUM) 



ASSEMBLY: 



BL 


DECASC 


DATAW . 


20 


DATAW 


INPUT 


DATAW 


SCALE 


DATAW 


N 


DATAW 


OUTBUF 


DATAW 


INUM 



where: INPUT = Decimal Word to be Converted 

SCALE = Scale Factor of Fixed Point 
Decimal Input 

N = Total -Number of Characters 

. . OUTBUF = ASCII Decimal Output Buffer 

INUM * = Number of Characters Left of 
Decimal Point 

TIME:- 288 psec (15 characters) 

ACCURACY: 

REGISTERS DESTROYED: 0, 1, 2, 3,. 4, 5, 6 and 7 
RESTRICTIONS: 10~ 9 < Dec Value < 1Q 8 * 
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NAME : 
TYPE: 

DESCRIPTION: 



FLOASC (Float-to-ASCII) 



Subroutine 

Converts a Positive S.P. Floating 
Point Value to an ASCII String 
Representing the Decimal Value 



". CALLING CONVENTIONS 

FORTRAN: - CALL FLOASC (INPUT, SAVER, OUTPUT ) 

ASSEMBLY: BL FLOASC 

DATAW 12 ' " 
DATAW W( INPUT) 

DATAW ' W( SAVER) : 
'DATAW B(OUTPUT) 

where: SAVER = Output Parameters: 

Byte 1 = Total Field Length 
Byte 2 = Fractional Field Length 



TIME: 66 usee + 12 y sec/digit * 

ACCURACY- 
REGISTERS DESTROYED: 0 

RESTRICTIONS: Max. Field Length = 8; 0 £ Input < : 99, 999, 999- V 



NAME: 



FLOBCD ( Float- to-BCD ) 

Subroutine 



DESCRIPTION: 



Converts S.P. Floating Point Value 
to Binary Coded Decimal 



CALLING CONVENTIONS 



FORTRAN: 



CALL FLOBCD (INPUT, SAVER, OUTPUT ) 



ASSEMBLY: BL FLOBCD 

■ DATAW 12 ' 

. DATAW W( INPUT) 

DATAW W(SAVER) 

DATAW B(OUTPUT) 

where: SAVER = Output Parameter: 

Byte 1 = Total Field Length 

Byte 2 = Fractional Field Length 

: • Byte 3 = Starting Nibble in 

• First byte of output 

buffer (0 or 1) 

TIME: 58 psec + 12.4 y sec/digit 
ACCURACY: 

REGISTERS DESTROYED: 0 . 

RESTRICTIONS: Max Field Length =8; 0 < Input < 99,993,999 



NAME: 



HEXASC (Hex-to-ASCII) 



DESCRIPTION: 



Subroutine 



Converts a Hex Integer to an ASCII String 
Representing the Hex Value 



FORTRAN: 



CALLING CONVENTIONS 



CALL HEXASC (IBUF, N, INP) 



ASSEMBLY: 



BL 

DATAW 
DATAW 
DATAW 
DATAW 



HEXASC 
12 

B(IBUF) 

W(N) 

W(INP) 



where: IBUF = Hex Output Buffer 
' " N . = Number of Characters 
INP = Hex Input Word 



TIME: 96 psec (8 characters) ' 
ACCURACY: ' 
REGISTERS DESTROYED: 0,1, 2, 3, 4, 5 'and 7 
RESTRICTIONS: 1 < N < 8 



NAME: 



TYPE: 



DESCRIPTION: 



HMSASC (Hr s/Min/Sec- to- AS C 1 1 ) 



Subroutine 



Converts seconds (S.P. Floatingpoint) 
to ASCII (Format HH:MM:SSJ 



CALLING CONVENTIONS 



FORTRAN : 



CALL HMSASC (FMT, IA, N) 



ASSEMBLY: 



BL 

DATAW 
DATAW 
DATAW 
DATAW 



BMSASC 
12 

W(FMT) 

B(IA) 

W(N) 



where: FMT = Input Seconds 

IA = HRS /MINS/SEC Output Buffer 
N = Number of Characters 



TIME: . 134.4 psec 

ACCURACY: . 
REGISTERS DESTROYED: 0,1, 2, 3, 4, 5, 6 and 7 
RESTRICTIONS: 2 < N < 8; Max time = 86399 seconds 
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NAME: 



IFLOFIX ( Float- to-Fix) 



TYPE: . Function : 

DESCRIPTION: Convert a S.P. Floating Point Value to 

Fixed Point Value 

< 

; CALLING CONVENTIONS 

FORTRAN: A = IFLOFIX (INPUT, SCALE) 

ASSEMBLY: BL IFLOFIX 

DATAW 8 

DATAW W(INPUT) 

DATAW W{ SCALE) 

Result returned to register 7 




TIME: 50 usee 

ACCURACY: 31 Bits 

REGISTERS DESTROYED: 0, 3, 5, 6, 7 
RESTRICTIONS: -31 < scale < 31 
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NAME: 
TYPEs 

DESCRIPTION: 



INTASC ( Integer- to-ASCI I } 



Subroutine 



Convert a S.P. Integer Value to an 
ASCII String Representing the Integer 
Balue 



CALLING CONVENTIONS 



FORTRAN: 



CALL INTASC (INPUT, SAVER,- OUTPUT) 



ASSEMBLY: 



BL 

DATAW 
DATAW 
DATAW 
DATAW 



INTASC 
12 

W( INPUT) 
W(SAVER) 
B( OUTPUT) 



where: Saver = Output Parameter: 

Byte 1 = Total Field Length 



TIME: 42.6 psec +13.8 p sec/Digit 

ACCURACY: ... 

REGISTERS DESTROYED: 0 

RESTRICTIONS: Max Field Length = 8; 0 < Input < 99,999,999 
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NAMEs 



' INTBCD { Integer-to-BCD } 



TYPE: 



DESCRIPTION: 



Subroutine 



Convert a Positive Integer Value to 
Binary Coded Decimal 



CALLING CONVENTIONS 



FORTRAN: 
ASSEMBLY: 



CALL. INTBCD (INPUT, SAVER, OUTPUT) 



BL 

DATAW 
DATAW 
DATAW 
DATAW 



INTBCD 
12 

W( INPUT) 
W( SAVER) 
B( OUTPUT) 



where: ^ SAVER = Output Parameters: 

Byte 1 = Total Field Length 

- Byte 2 = Starting Nibble in 

. •. First Byte of Output 
Buffer (0 or 1) 



TIME: 44 usee + 13.7 sec/Digit 
ACCURACY: 

REGISTERS DESTROYED: .0 '. ' 



RESTRICTIONS: Max Field Length - 8; 0 < Input £ (10 - 1) 



2.18 



NAME: 
TYPE: 

DESCRIPTION: 



LATASC (Latitude-to-ASCII ) 



Subroutine 

Converts to a S.P. Floating Point 
Angle (Degrees) to an ASCII String 

of Format N XXX°XX , XX.X" 
S 



FORTRAN: 



CALLING CONVENTIONS 



CALL LATASC (FL , IA, N) 



ASSEMBLY: 



BL 

DATAW 
DATAW 
DATAW 
DATAW 



LATASC 
12 

W(FL) 
B(IA) 
W(N) 



.where: FL = Input Angle in Degrees 

. IA = ASCII Latitude Output Buffer 

N = Number of Output Characters 

TIME: 182 sec (13 characters). 

ACCURACY : - 

REGISTERS DESTROYED: 0, 1, 2, 3, 4, 5/6 and 7 



RESTRICTIONS: 1 < N < 13; FL =90' 



NAME: 
TYPE: 



LONASC (Longitude-to-ASCII ) 
Subroutine 



DESCRIPTION 



Converts a S.P. Floating Point Angle 
(Degrees) to an ASCII String of Format 
E 



W 



xxxoxx'xx.x" 



CALLING CONVENTIONS 



FORTRAN: 



CALL LONASC (FL, IA, N) 



ASSEMBLY: 



BL 

DATAW 
DATAW 
DATAV/ 
DATAW 



LONASC 
12 

W(FL) 
B(IA) 
W(N) 



where: FL = Input Angle in Degrees' 

IA = ASCII Longitude Output Buffer 
N = Number of Output Characters 



TIME: 



182 usee (13 characters) 



ACCURACY: - . - . t 

REGISTERS DESTROYED: 0, 1, 2,1 3, 4, 5, 6 and 7 
RESTRICTIONS: 1 £ N < 13; FL <_ 180° 



2.20 



BITFR (Bit Function Read) 

Subroutine - 

Allows the Caller to Mask (Reset) Bits 
in a Variable or Shift a Variable or a 
Combination of the Above 

CALLING CONVENTIONS • 

FORTRAN : . CALL BITFR (VARl, MASK, SC, VAR2) 

ASSEMBLY: None; Use SEL Assembler Instructions 

where: VARl = Input Bit Configuration 
MASK = Mask Configuration 
. .. . * . SC = Shift Count (+ = Left, - = Right) 

VAR2 = Mask/Shifted Result 

.Execution Sequence: VARl masked with MASK, Shifted by SC 

and stored in VAR2 

TIME: 34 psec - 
ACCURACY: 

REGISTERS DESTROYED: 0 
RESTRICTIONS: -31 < SC < 31 



NAME: 
TYPE: 



DESCRIPTION: 



.3.1 



NAME: 



BITFS (Bit Function Set) 



TYPE: Subroutine 



DESCRIPTION: Allows the Caller to Shift a Variable, 

Mask and Set Multiple Bits in a Variable, 
or a Combination of the Above 



CALLING CONVENTIONS 

FORTRAN: CALL BITFS (VARl, MASK, SC, VAR2 ) 

ASSEMBLY: None; Use SEL Assembler Instructions 

where: VARl = Input Bit configuration" 

■ MASK = Mask Configuration (For VARl and VAR2) 

SC = Shift Count ( = Left/ - = Right) 

- - . ' . VAR2 = Contains Bit Set Configuration on 

Entry; on Exit Contains Result 

VARl shifted. by SC then masked with MASK 

VAR2 masked with one's complement of MASK 

Step 1 and 2 results 'ored' and store in 
VAR2 

TIME: 38 usee 

ACCURACY: _ • 

REGISTERS DESTROYED : 0 

RESTRICTIONS: -31 < SC < 31 . ; 



Execution Sequence: 1) 

2) 
3) 



3.2 



NAME". 
TYPE: 



BITS (Bit Set) 
Subroutine 



Allows Setting/Resetting of a Specified Bit 
in a ■■ Byte/Half word/Word as a Function of a 
Logical Variable (Set if not equal to 0) 



CALLING CONVENTIONS. 



FORTRAN: CALL BITS (VARl, K, VAR2 ) 



ASSEMBLY: None; Use SEL Assembler Bit Instructions 

Where: VARl = BYTE, HALFWORD, Word in which 

BIT is to be Set/Reset 

. K = Bit Number to be Set/Reset 



VAR = Defines Setting (VAR2 if not equal to 0) 
of Bit in VARl 



DESCRIPTION: 
« 



TIME: 35 usee 
ACCURACY: 

REGISTERS DESTROYED 0 

RESTRICTIONS: K(Bit #) Must not exceed precision of VARl 



NAME: 
TYPE: 



BITT (Bit Test) 
Subroutine 



DESCRIPTION: Returns a Logical Byte Whose State 
« Reflects the State of a Bit within 

a User Specified BYTE/KALFWORDA 7 ORD 



CALLING CONVENTIONS 



CALL BITT (VARl, K, VAR2) 



None; use SEL Bit Instructions 



where: VARl = Byte, Half word, Word in which 

Bit is to he Tested 

K ' -= Bit Number to' be Tested 

VAR2 = Logical Byte to be set True 
: ' (Bit = 1) or False (Bit = 0) 



FORTRAN: 
ASSEMBLY: 



TIME: 35 psec 

ACCURACY: ' . 

REGISTERS DESTROYED: 0 

RESTRICTIONS: K(Bit #) Must Not Exceed Precision of VARl 



3T4" 



NAME: 
"TYPE: 



ESRD (SYNCHRO/Resolver Drive) 



Subroutine 



DESCRIPTION: 



Computes XZ and YZ Drives for Either 
SYNCHROS or Resolvers 



FORTRAN: 



ASSEMBLY: 



CALLING CONVENTIONS 



CALL ESRD (ANGLE, XZ, YZ, I TYPE) 



BL 

DATAW 
DATAW 
DATAW 
DATAW 
DATAW 



ESRD 
16 

W( ANGLE) 
W(XZ) 
W(YZ) 
W(ITYPE) 



Where: XZ = SIN (ANGLE + 60) FOR SYNCHRO 
= SIN (ANGLE) FOR RESOLVER 

YZ = SIN (ANGLE ■+ 120) FOR SYNCHRO 
• ■ = COS (ANGLE) FOR RESOLVER 

I TYPE = 1 FOR. SYNCHRO; 2 FOR RESOLVER 



TIME: 186 usee for SYNCHRO; 161 for Resolver 

ACCURACY : 

REGISTERS DESTROYED: ' 0, 1,6, 7 
RESTRICTIONS: -180° < Angle £ 180° 



NAME: 
TYPE: 



GENEVA (Geneva Drive) 
Subroutine 



DESCRIPTION: 



Converts S.P. Floating Point Value to 
Sine/Cosine of 36* (100 Digit), 36* (10 
Digit) and 36* (Unit Digit) 



CALLING CONVENTIONS 



FORTRAN: 



CALL GENEVA (ARG1, ARG2 , ARG3, ARG4, 
ARG5, ARG6, ARG7) 



ASSEMBLY: 



BL 


GENEVA 


DATAW 


32 


DATAW 


W(ARG1) 


DATAW 


W(ARG2 ) 


DATAW 


W(ARG3.) 


DATAW 


W(ARG4) 


DATAW 


W(ARG5) 


DATAW 


W(ARG6) 


DATAW 


W(ARG7) 



where: ARGl = Input Value 

ARG2,3 = Sin/Cos of Hundreds 

ARG4,5 = Sin/Cos of Tens 

ARG6,7 = Sin/Cos of Units 

TIME: 484.69 [isec 

ACCURACY: 

REGISTERS DESTROYED: 0, 1, 2, 3, 4, 5, 6 and 7 
RESTRICTIONS: 0 < ARGl < 1000 ~ 



NAME j 

TYPE • 



SDATE { System Date ) 
Subroutine 



DESCRIPTION: Assembly Language Callable Routine which 

returns RTM System Month-Day- Year 



FORTRAN : 
ASSEMBLY: 



CALLING CONVENTIONS 



None 



BL 



SDATE 



On Exit: R6/R7 = MM/DD/YY in ASCII 



TIME: 7 usee 
ACCURACY: 

REGISTERS DESTROYED: 0, 6, 7 
RESTRICTIONS: CPU 1 Only 



NAME: 



SPOOLFIL (Spool File Create) 



TYPE: . Subroutine 

0 

DESCRIPTION: Creates a file of the form JCL.SjZfxx 

where xx = 0-40 for use in Dynamic Batch 
* Job files . Part of the created JCL should 

be to delete the file 



CALLING CONVENTIONS 
FORTRAN: ' CALL SPOOLFIL (FILENAME, SIZE, ERRTN) 



ASSEMBLY: 


BL 


SPOOLFIL 




DATAW 


12 




DATAW 


D( FILENAME) 




DATAW 


W(SIZE) 




,. DATAW 


W( ERRTN) 



where: FILENAME = DOUBLEWORD VARIABLE WHERE ACTUAL 

FILENAME WILL BE STORED. 

SIZE = SIZE OF FILE TO BE CREATED IN BLOCKS 

ERRTN = ADDRESS (OR LABEL) TO RETURN IF FILE 
COULD NOT BE CREATED 



TIME: N/A 
ACCURACY: N/A 

REGISTERS DESTROYED: ALL 
RESTRICTIONS: NON-REAL TIME ONLY 



NAME: 
TYPE: 

DESCRIPTION: 



SYMLK (Symbol Look-Up NOWAIT I/O) 



Subroutine 



Assembly Language Callable !, No Wait I/O" 
Symbol . Look-Up Routine 



CALLING CONVENTIONS 



FORTRAN: 
ASSEMBLY: 



None 

On Entry: R6/R7 = ASCII Symbol Name 

\ \ R3 = 24 Word User Buffer 
BL SYMLK 

On Exit: If Cond Code 1 = 1 Request was 

denied.. If not, user must monitor 
word 24 of buffer: 
-1 = Search in Progress, 
0 = Not Found, Other = Symbol 
Absolute Address- Words 1-23 
of buffer as described in RTM 
Ref . Manual, Figure 16-1. 




fiLA. * 4 h 



0 - 



TIME: Variable 
ACCURACY: 

REGISTERS DESTROYED: 0, 1, 2, 3, 4, 5, 6 and 7 



RESTRICTIONS: To be used in Real-Time Only. Clear with Computer 

Systems Lead Personnel before using. 



NAME: . SYMLKW (Symbol Look-Up Wait I/O) 

TYPE: ; Subroutine 



DESCRIPTION: Assembly Language Callable "WAIT I/O" 

Symbol Look-Up Routine 



CALLING CONVENTIONS 



FORTRAN: None 



ASSEMBLY: On Entry: R6/R7 = ASCII Symbol Name 

R3 = 24 Word User Buffer 



BL - 'SYMLKW 

• On Exit: User Buffer Filled with Symbol 

Data as described in RTM Reference 
Manual, Figure 16-1, with the 
exception that Word 24 = Absolute 
Address of Symbol (If Found or 0 
jlf Not Found) 



TIME: N/A 
ACCURACY:. 

REGISTERS DESTROYED: 0, 1, 3, 4, 5,6, and 7 
RESTRICTIONS: Non-Real Time Usage Only (CPU 1 Only) 



x.r<r _ 



NAME: 

TYPE: 

DESCRIPTION: 



ZTIME (System Time) 



Subroutine 



Assembly Language Callable Routine to 
Fetch RTM System Time 



CALLING CONVENTIONS 



FORTRAN: 



BL ZTIME 

On Exit: R7 (BYTE 1) 
(BYTE 2 ) 
(BYTE 3} 
(BYTE 4) 



Hours (0-23) 
Minutes (0-59) 
Seconds (0-59) 
Interrupts (0-60) 



TIME: 16.7 psec 
ACCURACY: 

REGISTERS DESTROYED: ff , 7 
RESTRICTIONS: CPU 1 Only 



